G 6 


a 
Cad 
~N 


IWII1I1111 BBBBBBBBBBBB RRRRRRRRRRRR AAAAAAAAA RRRRRRRRRRRR 
IIIIIIIII BBBBBBBBBBBB RRRRRRRRRRRR AAAAAAAAA RRRRRRRRRRRR 
III BBBBBBBBBBBB RRRRRRRRRRRR AAAAAAAAA RRRRRRRRRRRR 
II] BB RRR RRR AAA AAA RRR RRR 
LLL II] BBB BBB RRR RRR AAA AAA RRR RRR 
LLL Il] BBB BBB RRR RRR AAA AAA RRR RRR 
LLL II] BBB BBB RRR RRR AAA AAA RRR RRR 
LLL II] BBB BBB RRR RRR AAA RRR RRR 
LLL II] BBB BBB RRR RRR AAA AAA RRR RRR 
LLL II] BBBBBBBBBBBB RRRRRRRRRRRR AAA AAA RRRRRRRRRRRR 
LLL II] BBBBBBBBBBBB RRRRRRRRRRRR AAA AAA = RRRRRRRRRRRR 
LLL II] BBBBBBBBEBBB RRRRRRRRRRRR AAA AAA RRRRRRRRRRRR 
LLL IJ] BBB BBB RRR RRR AAAAAAAAAAAAAAA = RRR RRR 
LLL II] 888 BBB RRR RRR AAAAAAAAAAAAAAA RRR RRR 
LLL 1] BBB BBB RRR RRR AAAAAAAAAAAAAAA RRR RRR 
LLL II] BBB BBB RRR RRR ABA AAA RRR RRR 
LLL II] 888 BBB RRR RRR AAA AAA RRR RRR 
LLL II] BBB RRR RRR AAA AAA RRR RRR 
LELLLLLLELLLLLL III BBBBBBBBBBBB RRR RRR AAA AAA RRR RRR 
LLLLLLLLLLLLLLL ITIIIIII BBBBBBBBBBBB RRR RRR AAA AAA RRR RRR 
LELLLLLLLLLLLLL IWII1111 BBBBBBBBBBBB RRR RRR AAA AAA RRR RRR 


000 
33 
000 
000 
000 
000 
i 
000 
000 
000 
000 
000 
000 
000 
000 
000 
000 
000 
000 
000 
000 
000 
000 
000 
000 
000 
000 
000 
000 
000 
000 
000 
000 
00 
00¢c 
00Cc 
: 


**F ILE**1D**]NPUTMAC 
III11] NN NN PPPPPPPP UU UU TTTTTTTTTT MM MM AAAAAA ccccccc 
111111 NN NN PPPPPPPP UU UU TTTTTTTTTT MM mM AAAAAA ccccccc 
I] NN NN PP PP UU UU TT MMMM MMMM AA AA CC 
Il NN PP PP UU UU TT MMMM AA AA CC 
I] NNNN NN PP PP UU UU TT “mM MM MM «AA AA CC 
I] NNNN NN PP PP UU UU TT MM MM AA AA CC 
I] NN NN NN PPPPPPPP UU UU TT MM MM AA AA CC 
II NN NN NN PPPPPPPP UU UU TT MM MM AA AA CC 
I] N PP UU UU TT MM MM AAAAAAAAAA CC 
I] NN NNNN PP UU UU TT MM MM AAAAAAAAAA CC 
I] N NN PP UU UU TT MM MM AA AA CC 
I] NN NN PP UU UU TT MM MM AA AA CC 
IIIII1 NN NN PP UUUUUUUUUU TT MM MM AA AR cccccc 
1111 NN NN PP UUUUUUUUUU TT MM MM AA AA cccccc 
LL III] SSSSSSSS 
LL III] SSSSSSSS 
LL I] SS 
LL I] SS 
LL I] SS 
LL I] SS 
LL I] SSSSSS 
LL I] SSSSSS 
LL I] SS 
LL I] SS 
LL I] SS 
LL I] SS 
LLLLLLLLLL III] SSSSSSSS 
LLLLLLELLL T1111 SSSSSSSS 


mu 8 
LIB_INPUTMAC Jo~se0= 138% 93 :36:4) AX-11 Bliss-32 V4.0-74 
14-Sep-1984 12:38:04 LIBRAR.SRCJINPUTMAC .B32;1 
MODULE Lib_inputmac ! Get next macro input Line 


( 
PSHE BLESS 


3 1 001 

$ § Oe 

; 00 

; 4 004 

3 5 005 1 BEGIN 

boxy 007 | | 

: 3 B28 1 i ween eeeeeeeeeeeeeeeReeeeReeeeeeeeeeeeeeeeeeereeneeeeneeeneeeeereereneeeeees 
: 1 'e ra 
.> we 0010 1 !* COPYRIGHT (c) 1978, 1980, 1982, 1984 BY * 
:. a 0011 1 i® DIGITAL EQUIPMENT CORPORATION, MAYNARD, MASSACHUSETTS. ® 
3 \¢ pols } - ALL RIGHTS RESERVED. - 
; 0014 1 !* THIS SOFTWARE IS FURNISHED UNDER A LICENSE AND MAY BE USED AND COPIED * 
. 0015 1 !* ONLY IN ACCORDANCE WITH THE TERMS OF SUCH LICENSE AND WITH THE * 
;s B218 1 !* INCLUSION OF THE ABOVE COPYRIGHT NOTICE. THIS SOFTWARE OR ANY OTHER * 
os oF 0017 1 !* COPIES THEREOF MAY NOT BE PROVIDED OR OTHERWISE MADE AVAILABLE TO ANY * 
oe 0018 1 !* OTHER PERSON. NO TITLE TO AND OWNERSHIP OF THE SOFTWARE IS HEREBY * 
3 4 4th } } TRANSFERRED. * 
3 '® t 
; 0021 1 !* THE INFORMATION IN THIS SOFTWARE IS SUBJECT TO CHANGE WITHOUT NOTICE * 
3 $§ OSs 1 !* AND SHOULD NOT BE CONSTRUED AS A COMMITMENT BY DIGITAL EQUIPMENT * 
; $i OpS7 : i” CORPORATION. * 
; : « 
: 25 0025 1 !* DIGITAL ASSUMES NO RESPONSIBILITY FOR THE USE OR RELIABILITY OF ITS * 
; «2 0026 1 !* SOFTWARE ON EQUIPMENT WHICH IS NOT SUPPLIED BY DIGITAL. * 
; af 0027 1 ‘'« * 
; @ 0028 1 !* * 
3 $3 594 41 Vee RRR TEETER 
3 0 0 1 

; «ST 0033 1 l+¢ 

; mR Ones 2 : 

;. 0033 1°! FACILITY: Library command processor 

; 0034 1! 

.— = 0035 1 ! ABSTRACT: 

2.) 0036 1! 

, 0037 1! The VAX/VMS Librarian is invoked by DCL to process the LIBRARY 

; 38 0038 1! command. It utilizes the Librarian procedure set to perform 

a: 2» 0039 1! the actual modifications to the Library. 

; 40 0040 1! 

: 41 0041 1 ! ENVIRONMENT: 

; 4g B06 1! 

: «6 0043 1! VAX native, user mode. 

3 44 044 1! 

: 45 045 1 !e- 

s; 0046 1! 

; 67 0047 1! 

; re apes : AUTHOR: Benn Schreiber, CREATION DATE: 22-June-1979 

3 3 sits : } MODIFIED BY: 

5; fe 0084 1! v02-008 RPG44341 Bob Grosso 02-Mar-1982 

; 32 Boe iz Fix routine scan_word to continue processing after 

i; 2 054 1! a label is encountered, and correct the macro name 

; 3 0055 1! printing on all the messages that get the macro name 

: 29 ppeS : } from macnamptrtbl. 


voe=boo. ® IESS0198G QUHESL — WMaddaPAAESGAPU MP2 


; 28 ; 1} v02-007 RPG0047 Bob Grosso 7-Aug-1981 
: 26 2 ! Lib$Sgl_ctlmsk now a quadword 

: 61 06) 1 i v02=006 RPG0046 Bob Grosso 21-Jul-1981 
: ? 806 ! Check macro level in setmacroname. 

: 64 064 1 | v02-005 RPG0036 Bob Grosso 25-Jun-1981 
: $7 Be? : } Continue inserting macros after an Lbr$_dupkey error. 
: 67 0067 1: v02-004 RPGO035 Bob Grosso 22-Apr-1981 
: os Boe8 ’ } Record module names for Library update history 

: 70 $096 1 / v02-003 BLS0029 Benn Schreiber 23-Dec-1980 

: 4) Bees : Convert messages to message compiler 

ae $078 1! v02-002 Benn Schreiber 28-May-1980 

: es Bate : Correct scan_word to not look past end of Line. 

: 76 007%6 1— 

: 77 0077 1 


9 
L1B_{NPUTRAC hati 72:38:04 EMferanssne? weutmac-039;1 ao 
; FF 


7 LIBRARY | 

7 *SYSSLIBRARY:STARLET.L32'; 

: REQUIRE 

*PREFIX'; 

6 REQUIRE 

"LIBDEF'; 

REQUIRE 
"LBRDEF'; 


EXTERNAL ROUTINE 


; 

3 : 5 

; 6 

; 5 & 

: Be i28 

; 8 1129 

; Ww 1163 pet-record. ‘Read next input record 
; 114 ib_log_op, ‘Log insert operation 
1150 t}p.log_upd. 'Log module names for Library History 
3 3 1151 Lib_get_zmem, ‘Allocate memory 

; 1128 Lib  free_mem, !Deallocate genory 

i 9% 112 LbrSdelefe_key : ADDRESSING _MODE (GENERAL), !Delete key from index 
; 95 1154 \br$delete-data : ADDRESSING MODE (GENERAL), {Delete data 

; & 1155 Lbr$put_record : ADDRESSING_MODE (GENERAL), !Write record to Library 
; 1128 Lbr$lookup_key : ADDRESSING MODE (GENERAL), !Lookup key in Library 
; 98 115 LbrSinsert_key : ADDRESSING MODE (GENERAL), !Insert key in Library 
; 99 1158 tergreptoce fey : ADDRESSING MODE (GENERALS, ‘Replace or insert key 
3 19 FS lbr$put_end”: ADDRESSING_MODE (GENERAL); 'Finish writing to Library 
3 4 1161 exTea, 

; 10 1106 Lor$gl_rmsstv : ADDRESSING_MODE (GENERAL), ‘RMS STV from Librarian 
: 104 116 Lib$Sgi-ctlmsk : BLOCK (2), 

3 OS 1164 Lib$gl_keysize, 'Max Length of keys 

; 106 1165 Lib$Sgl_lLibfdb : REF BBLOCK, 

: 107 1198 t pest = metab : REF BBLOCK, 

; 108 116 LibSgl_libctl; 

; 109 1168 

; 110 1169 exten, LITERAL 

; 6111 1170 Lib$_nomac found, 'No macro def found 

; Ng 1171 Lib$_nestlevel, ‘Nesting level exceeded 
3; + 1176 Lib$_nomtchendr, 'No matching .endr 

3 1146 117 taenfoomnyendr 'Too many .endr's 

3s 999 1174 Lib$_inserterr, ‘Insert error 

3 118 1175 Lib$_deldaterr, ‘Delete data error 
Bea 1176 Lib$_endwrngmac, ‘Ends wrong macro 

; «(118 1177 LibS_replaced, ‘Module replaced 

; 119 1178 Lib$_inserted, ‘Module inserted 

; 120 1179 Lib$S_nomtchendm, 'No matching .endm 

3 «(lel 1180 Lib$S_macnaming, 'Macro name length illegal 
, 4 § 1333 Lib$_dupmodule, ‘Duplicate module 

: : ? e $ Lib$_dupmod; !Duplicate module 

; 158 1184 FORWARD ROUTINE 

i 126 1185 setmacroname, 

: 127 1158 checkendmac, 

3; 128 118 scan_line, 

: 129 HB 33 scan_word 

; 130 1189 skip_blanks 

> 131 1190 skip~blnk_bkwds, 

ey § 1191 sym ol_char 

Ss 1198 elim_trail_bink, 

s 136 119 pake_upper case. 

s 55 1194 lookup_keyword; 


: 


ooo0o 


SRLESRENLS SS 


<2 3 ob _ db 
aa a a i a aa i a mk tt tt a kt kk at et at a 2 ot 2 = Ss 8 Ss 2 1 2 


PAAAAAMMMNMNNNUNINN SE BELL LL ES 


a a a ek ed ed ad od od wd od od 


ONAN NNN NSO 


aaa aaa aaa i a at kt kt at a a a a = = = 2 a 2 2 2 2 od ts ss 2 2 


POPOPOPOPSPOPIPONSPINPPoPyrons 


AIAAAAI AAI AIA POPPIN PINNONODY 2 OO OS 
ODWNA UNE WN O ODNOUE WO OONOU SW O 


buf dere : BBLOCK Cds $c 320 
de c$c_ 


tokenidesc : BBLOCK [ds 


tokenddesc : BBLOCK [dsc$c_ 


curchar, 
dupseen, 
tokenindex, 
Lineptr, 
endptr, 
nestinglevel 
reptnestlevel, 


macrorfa : BBLOCK (rfa$c_length], 
BBLOCR 


macnamptrtbl : REF 


macro_names : descriptor (* MACRO) 
repeat_name : descriptor ('.REPEAT'S, 
rept_name : descriptor eas 34 


irp_name : descriptor ( 


irpc_name : descriptor (*lIRPC'S, 
ending_names: descriptor ('.ENDM'), 
endr_name =: descriptor ('.ENDR'), 
warn_name : descriptor ('.WARN') 

error_name : descriptor (* ERROR'S, 


print_name : descri 


prec i. 
end_of_list : LONG INITIAL (0); 


LITERAL 
key_macro = 0 
key_repeat = i, 
ey_rept =_2, 
key_irp = 3 
key_irpe = i, 


Key error = g. 
ey print = 9, 
Libse 


C_maxnest = lbr$c_pagesize/dsc$c_s_bln; 


tokenilen 


token2len 
tokendptr 


eee te te ee ee 


= tokenidesc Cdsc$w_length] : 
tokeniptr = tokenidesc [dsc$a_poin 
= tokenddesc ([dsc$w_leng 
= tokendedesc (dsc$a 
Linelen = bufdesc (dsc$w_len 
lineaddr = bufdesc (dsc$a_po 
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LIBRAR.SRCJINPUTMAC .832;1 


Descriptor for current Line 
String descriptor for first token 
String descriptor for second token 
Current character 

Flag set to skip duplicate module 
Index for first token 

Current Line pointer 

Pointer to past end of Line 
Current peste level 

nesting level for .rept/.endr 

RFA of macro module header 
Pointer to macro descriptor table 


Must parallel order of ascii names above 


! Max nesting level 


<r 
m 


vet=bo0 


18 
i 


Oe ee Ge Se Se Se Ge Ge Ge Oe Se Oe Ge Se Se ee Ge BH Se Se ee 
RORY 2 i 
SOOOCOOOOOOOOO@MOmw 

a a ss 2 — > ss —) 1s 2 
PROPOPONOPOPoPONoNonopononofpefporonofperonrny 
PDD BE EE 
SOOONAMNE AR" OOONOUS WO 


— 


~m 


GLOBAL ROUTINE Lib_input_mac = 
ea 
i This routine reads macro source files, extracts the macro definitions 


contained in them, and inserts them into the macro Library. 


ROUTINE put_record (Linedesc, rfa) = 
BEGIN 


144 
! Local routine to call lbr$put_record 


a 
If NOT .dupseen 
THEN 


rms_perform (lbrSput_record (Lib$gl_Libctl, oS poogere a) 
Lib$_writeerr, .lbr$gl_rmsstv, 1, Lib$gl_ libt 
hg true 


db fdb$l_namdesc)); 


-TITLE LIB _ 


-IDENT \v0%-000 

-PSECT SPLITS,NOWRT,NOEXE,2 
00 00 4F 52 43 41 4D 2E Q0000 P.AAA: .ASCII \.MACRO\<0><0> 
00 54 41 45 50 45 52 2E 00008 P.AAB: .ASCII \.REPEAT\<0> 
00 00 00 54 50 45 2g 2E 00010 P.AAC: .ASCII \.REPT\<0><0><0> 

50 2§ 49 2€ 00018 P.AAD: .ASCII \.IRP\ 

00 00 00 43 50 52 49 2E OQO01C P.AAE: .ASCII \.IRPC\<0><0><0> 
00 00 00 4D 44 4E 45 st 00024 P.AAF: .ASCII \.ENDM\<0><0><0> 
00 00 00 52 44 4E 45 2E ppg P.AAG: .ASCII \.ENDR\<0><0><0> 
00 00 00 4E 52 41 57 2E 00034 P.AAH: .ASCII \.WARN\<0><0><0> 
00 00 52 4F 52 2§ 45 2€ OO003C P.AAI: .ASCII \.ERROR\<0><0> 
00 00 54 4E 49 52 50 2E 00044 P.AAJ: .ASCII \.PRINT\<0><0> 


-PSECT SOWNS,NOEXE,2 


00000 BUFDESC: .BLKB 
00008 TOKENIDESC: 


BLK 

00010 TOKEN2DESC: 
00018 CURCHAR: “BLKB 
9001 N:.BLKB 
002 TOKENINDEX: we 
a0088 Et LINEPIR: “BLKB 
PTR: .BLKB 

0002C NESTINGLEVEL: Li 
00030 REPTNESTLEVEL: 


-BLK 
00034 MACRORFA: 


- FF FSF FSO OS ow 


AX-11 Bliss-32 v4.0 
LIBRAR.SRC INPUTMAC, “B35, 31 


Page 


Gg 
LJ |NPUTMAC yE-sep-1964 O1:56:4)  YAKGTT BLingc 52 0-742 Page 6 


.BLKB $ 
00034 .BLKB 
003C mcrae! H 

00090006 00040 MACRO_NAMES: 


.LONG 6 : 
90000000" 0044 ADDRESS P.AAA : ; 
00000007 00048 REPEAT NAME : , ; 
90000000" 9004¢ "ADDRESS P.AAB ; | ; 
0000005 00050 REPT_NAME: , | : 
90000000" 90054 “ADDRESS P.AAC : ; 
00000004 00058 IRP_NAME: ‘ 
00000000" 0005¢ "ADDRESS P.AAD ; | : 
00000005 00060 IRPC_NAME : , | : 
00000000' 00064 DDRESS P.AAE : 
00000005 00068 ENDING. Wines: , | 
00000000" 0006¢ “ADDRESS P.AAF ; 
00000005 00070 ENDR_NAME : a4 
00000000' 00074 “ADDRESS P.AAG : 
00000005 00078 WARN NAME : , 
90000000" 0007¢ -ADDRESS P.AAH : 
00000006 00080 ERROR =NARE 7 
00000000" 00084 ADDRESS P.AAI ; | 
00000006 00088 PRINT NAME , 
00000000' 0008¢ “ADDRESS P.AAJ F 
00000000 00090 END_oF_LiST: 
.LONG 0 ; | 
TOKENILEN= TOKEN1DESC 
TOKENIPTR= TOKENIDESC+4 
TOKEN2LEN= TOKEN2DESC 
TOKENPTR= TOKENODESC+4 
LINELEN= BUF DESC 
L INEADDR= BUF DESC +4 
-EXTRN GET_RECORD, LIB L0G 0 
-EXTRN LIBTLOG_U UPD LIB G 
TEXTRN LIBTFREE_M Liat GET 2mm _KEY 
-EXTRN tBRSDELETE OOATA 
“EXTRN LBRS$PUT RD, LBRSLOOKUP_KEY 
-EXTRN LBRSINSERT_KEY, LBRSREPLACE_KEY 
-EXTRN LBRSPUT END, LB Sct 
-EXTRN LIBSGL_CTLMSK, LIBSGL_KEYSIZE 
“EXTRN LIBSGL~ 08. L1BSG INPFDB 
"EXTRN LIBS$GL~LI 1B$_NOMACFOUND 
~EXTRN t1Bs NESTCEVE tes _NOMTCHENDR 
EXTRN L1Bs-10 STLEVEL, 
“EXTRN LIBSTIN SERTERR LIBS$_DELDATERR 
-EXTRN LIBS~ENDWRNGMAC 


-——-———"_--- - —-- ---- ———-— ——— —— a —— ant rc— 


if 9 
LIB_JNPUTMAC g=se -1984 741 AX-11 Bliss-32 V4.0-74 Page 7 
Lbe=b00 g73e8718 4 9}: 3§: :04 LIBRAR.SRCJINPUTMAC. 533.1 . (3) 
EXTRN LIBS$_REPLACED, LIBS$_INSERTED 
EXTRN LIB$- NO 
-EXTRN LIB$- heen” LIB$_DUPMODULE 
SEXTRN LIB$—~DUPMOD 
-PSECT S$CODE$,NOWRT,2 
0000 00000 PUT_RECORD: 
«WORD Save nothing 3 1382 | 
gf 0000' CF £8 00 BLBS DUPSEEN, 1$ 3 1255) 
00006 CF $F 00008 A ii rd Beam 
e | 
000000006 00 05 4} Sor CALLS rs Lect ony : 
1 50 £ 0016 LBS STATUS ; 
000000006 4 DD 0001 PUSHL LBRSGL_RMSSTV : 
0 DD OO01F PUSHL STATUS | 
7E 0000G CF 10 ¢1 00021 ADDL #16, LIBSGL_LIBFDB, -(SP) 3 
01 BD 00027 PUSHL #1 : | 
00861002 8F DD 00029 PUSHL #8786130 ; 
000000006 00 05 FB O00?F CALLS #5, LIB$SIGNAL ; | 
50 01 DO 00036 1$: MOVL #1, RO 3 1259) 
04 00039 RET : 1260, 
; Routine Size: 58 bytes, Routine Base: S$CODE$ + 0000 | 
: 203 1261 2 
; 204 1506 ¢ ROUTINE put_end = | 
; 205 126 BEGIN 
3 $06 1264 
; 207 1265 '44 
; 208 1266 : 
; 209 1267 ! Write end of module record 
; 210 1268 3! 
3 2 1269 3 !-- 
3 $i¢ 1270 3 
, 62) 1271 ; IF NOT .dupseen 
3: 214 1676 THEN 
3 23 P1273 3 rms_perform (Lbr$put_end (Lib$gl_libctl), : 
; 216 1274 3 Lib$_wrifeerr, .lbr$gl_ rmsstv, 1, Lib$Sgl_libfdb Cfdb$l_namdesc]); 
s 27 1275 3 RETURN true 
; 218 1276 2 END; 
| 
0009 00000 PUT_END:.WORD Save nothing 3 1262 | 
28 0000° CF 3 BR006 BLBS DUPSEEN, 1$ 3s 1271} 
0000G CF F 00 PUSHAB ety CIBCTL 3 1274) 
000000006 00 9} FB 000 CALLS LBRSPUT _END ; 
1D 0 €8 0001 L STATO ; | 
000000006 00 DD 0001 PUSHL PBRSGL *RMSSTV : 
Hh 0D itt PUSH STATUS” F 
7E 0000G CF 1 C1 638 ADDL #16, LIBSGL_LIBFDB, -(SP) 3 
4 DD B85 PUSHL #1 : 
00861002 F DD 00025 PUSHL #8786130 : 


6 9 
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000000006 99 05 i sone “ Rov Si> bestow. i] 


; Routine Size: 54 bytes, Routine Base: SCODE$S + 003A 


U6 ,RRUTRAC 


Libdesc = Lib$gl_libfdb pL abet nendenc? : BBLOCK, 


inpdesc = Lib$gl_inpfdb $l_namdesc] : BBLOCK; 


19 7 
20 7 : 
5 } Main body of Lib_input_mac 
" | 

4 H OCAL 
25 8 deltxtrfa : BBLOCK ([rfa$c_length], 
$$ 8 found_one, 
7 8 status 
28 8 replacing, 
$3 8 get_status, 
0 8 stop_flag; 
; 
33 3 

9 

9 

9 


ound_one = false; 
more = false; 
HSFIiL (0, rfa$c_length, macrorfa); 


eT a 


f 
d 
; 
Allocate macro name descriptor table if needed 

if 

THEN perform (Lib_get_zmem (lbr$c_pagesize, macnamptrtbl)); 
Loop reading whole input file until end of file 


WEEE PW 
COOOCCCOCOOCCOCoOoOWNO 
AXVEWD 0 COONAN WN 0 OD NOU EWN $9 OBNOU EWN CO OONAU SWEAR OOOn 


| 
| 
-macnamptrtbl EQL 0 | 
| 


POPIPIPININININININININININPIAIPINIPININININININININININININPYNINPINPINONPIPYNININY: 


a a ee ee a a dd od ed 
AWANAIAIA AAAI AAI ANNAN NIAAA AAI II Po nono no nononononononononononononononononofry 


Se Be Be Se Se Se Be Se Se Se Se Se Se Se Ge Be Ge Fe Se Se Se Se Bt Ge Se Ge Se Be Se Se Se Se Ge Se Se Se Se Ge Ge Se Se Ge Se Se Se Se Ge Ge Se Se 


BI 

; ; 

5 5 

0 

; 

$ 

6 WHILE true ‘Until eof 

f bo BEGIN 

4 ; Look for *'.MACRO"’ 

51 4 WHILE ((get_status = get_record (bufdesc)) NEQ rms$_eof) !Until .MACRO found 

2§ 10 4 DO BEGIN 

5 11 4 IF ,linelen NEQ 0 'If non-null Line ; 

54 12 4 AND scan_line () ‘and something interesting : 
55 13 4 AND .tokenindex EQL key_macro ! and it is a .MACRO 
28 14 4 THEN EXITLOOP; 

5 1 END; 
58 1 IF .get_status EQL rms$_eof 

59 1 THEN IF .found_one 

60 1 THEN EXITLOOP 

61 19 4 ELSE BEGIN . ; 

6 $ 4 SIGNAL (Lib$_nomacfound, 1, inpdesc); !Otherwise done 
6 & RETURN Lib$_nomac found; 

$8 2 END; 

66 5 replacing = false; ‘Not replacing yet 
267 2 nestinglevel = 1; ‘Nesting level initially 1 
268 2 reptnestlevel = 0; 


2000000 
Wnr—o 


nue 


; 
; 


mM 
00 00MM C# 
Wr Oo 0oOn 


wed Sr 
AVIS SSLSRE 


MEW 0 OBNOUS WN —-O0OOn 
ee ee ee ee ee eS SS S| 


H 
16- 
14 


found_one = true; 
perform (setmacroname ()); 
put_record (bufdesc, macrorfa); 


stop_flag = false; 


DO BEGIN 
tokenindex = <1; 
et_status = get_record (bufdesc); 
F “get status EGL rms$_eof 
HEN EXITLOOP; 


IF ,linelen NEQ 0 
THEN IF scan_Li 


Ckey_macro] : 
BEGIN 


BEGIN 
BIND 


ND; 
IF NOT setmacroname () 
hp EXITLOOP; 


Ckey_endm] : 


EGIN 
IF .token2len EQL 0 
AND .reptnestlevel GTRU 0 


EGIN 
checkendmac (); 


END; 


Ckey_endr] : 
BEGI 


CINRANGE) : true; 
TES; 


BEB EDS SBMA AD MIM BB EE NIA A AAA MII ES BB BBB PPE EE PWN 


ne () 
THEN, CASE .tOkenindex FROM key_macro TO key_print OF 


Ckey_repeat, key_rept, key_irp, key_irpc] : 
reptnestlevel = .reptnestlevel + 1; 


THEN reptnestlevel = .reptnestlevel -1 
ELSE 


9 
ep-1984 12:38:04 


yarel! Bliss-32 V4.0-74 
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' MACRO has been found 
'Save the macro name away 
'Write the record 


Read and write records until the matching .ENDM is seen 


tnon=null Line — 
'‘and something interesting there 


nestinglevel = .nestinglevel + 1; 
fap ftnt oahu GEQU Lib$c_maxnest 


macro_nam = .macnamptrtbl Cdsc$a_pointer]; ! locates a counted ASCII string 
SIGNAL (LbS_nestlevel, 2, macro_nam, inpdesc); 


'If no macro name 
' and still in a repeat 
! then assume its .endm on a repeat (should 


nestinglevel =" nestinglevel - 1; 


foptneettones = .reptnestlevel - 1; 
END; 


9 
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yoe=000 1228671382 93:38:64 LIBRAR.SRCJINPUTMAC .B32;1 . (3). 

} 

3 § 1384 4 
3 1385 4 IF .nestinglevel EQ. 0 
3 : 1 $ 4 THEN 
; 1 GIN 
; 0 1388 stop_flag = true; 
3 1 1389 IF .reptnestlevel GTR 0 
3 § 1390 HEN 
3 1391 6 BEGIN 
: 1 3 6 BIND 
; 5 1395 6 macro_nam = .macnamptrtbl Cdsc$a_pointer]; ! locates a counted ASCII string | 
; : be 6 SIGNAL (Lib$S_nomtchendr, 3, .reptnestlevel, macro_nam, inpdesc) 
; 8 1 38 ELSE 
; 9 139 IF .reptnestlevel LSS 0 
3 40 1398 THEN 
: 341 1399 6 BEGIN 
3 ri} 1400 6 BIND 
; 34 1401 6 macro.nam = .macnamptrtbl Cdsc$a_pointer]; ! locates a counted ASCII string 
; $e 1436 6 SIGNAL (L7b$_toomnyendr, 2, macro_nam, inpdesc); 
; 45 140 5 ; 
: 346 1404 4 END; | 
: 347 1405 4! 
; 348 1406 4 ! Squeeze out trailing blanks and comments if /SQUEEZE and Line is non-zero 
; 349 1407 4 ! and the Line is not .ERROR, .WARN or .PRINT (which contain semicolons 
; 350 1408 4 ! as part of the syntax). 
3 «635) 1409 4! 
3 2g 1410 4 IF .LibSgl_ctlmsk g* 100e_squeceed 
3 3 1411 4 AND .linelen GTRU 
3; 354 1218 6 AND NOT ((.tokenindex GEQU key _warn) 
$ $27 1413 5 AND (.tokenindex (eau key_print)) 
3; 356 1414 5§ THEN BEGIN 
3 gor 1415 § elim_trail_blnk 0; ; : 
; 358 1416 5 IF .Tinelen NEQ 0 'If Line left after squeezing 
; 359 1417 5§ THEN IF NOT put_record (bufdesc, macrorfa) 
; 360 1418 5 THEN EXTTLOOP; 
: 361 1419 5 END 
3 6¢ 1420 4 ELSE IF NOT put_record (bufdesc, macrorfa) 
: 6 1421 4 THEN EXTTLOOP; 
: 364 1o56 4 
; 365 14 4 END 
: 366 1424 UNTIL .stop_flag; 
; 44 14 3 IF .stop_fl | 
3 -stop_fla 
3 9 14 3 THEN . ° 
; 0 1428 4 BEGIN 
3 71 1429 4 BIND 
; 37 1430 4 macrodesc = .macnamptrtbl : BBLOCK; 
; 37 1431 4 IF .dupseen 
3; 374 1636 4 THEN 
; 375 1433 4 ' : . 
3 76 1434 4 : If a duplicate was seen, then then skip the insert_key call 
; 44 tH ? and reset the dupseen tlag. 
: Le 4 1437 ? dupseen = false 
; 381 1239 2 EGIN ! proceed with normal insertion/replace 
; 382 1440 put_end (); ‘Write end of module record 
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macrodesc = .macnamptrtbl : BBL 
macrodesc céscSe_potnter3 = .macrodesc Cdsc$a_pointer] + 1; 


3 441 | 
Se tt8 macrodesc Cdsc$a peinters = ,macrodesc Cdsc$a_pointer] + 1; 
85 4b IF .LibSgl_ctlmsk Clib$v_replace] !If requested to replace 
+) 444 THEN 
8 445 BEGIN 
88 rr replacing = }ors} cokup. key CUibeat tibet. -Macnamptrtbl, deltxtrfa); 
89 P 144 rms_perform (lbr$replace_key (Li Sol. liberl, -macnamptrtbl, deltxtrfa, macrorfa), 
90 448 bS_inserterr, .lor$gl_rmsstv, 2, smacnamptrtbl, Libdescs; 
91 449 IF .replacing 'If we are replacing 
9 P 1450 THEN rms_perform (lbr$delete_data (Lib$gl_lLibctl, deltxtrfa) ! then delete old text | 
9 45} LibS-deldaterr, .Tbr$gl_rmsstv, 1, libdesc); 
94 12g END | 
95 4 
96 454 BEGIN 
97 P 1455 rms_perform (lbrSinsert_key (Lib$gl_lLibctl, ,macnamptrtbl, macrorfa), 
98 456 LibS_inserterr, .lbr$gl_rmsstv, a -macnamptrtbl, Libdesc ); 
99 457 END; 
400 58 
401 59 Lib_log_upd ( (IF sreptegin THEN Lhe$c_replaced 
40 0 ELSE lheSc_inserted), .macnamptrtbl ); 
40 1 Lib_log_op ((IF sreplac ing THEN Lib$_replaced . 
t8e ¢ ~~ ELSE Lib$_inserted), .macnamptrtbl, .Lib$gl_Libfdb); 
406 4 macrodesc (Cdsc$a_pointer] = .macrodesc (dsc$a_pointer] - 1; 
407 5 END 
408 6 
7 LSE 
8 BEGIN 
9 BIND 
macro_nam = .macnamptrtbl adscSa_potnterd. ! locates a counted ASCII string 
4 IF .nestinglevel GTRU 0 
5 THEN 
6 SIGNAL (Lib$S_nomtchendm, 2, macro_nam, Libdesc); 
i IF .macrorfa NEQ 0 'Need to clean up? 
9 BEGIN 
80 put end (); ‘ !write end of module 
1 LbrSdelete_date (LibSgl_libctl, macrorfa); 
5 macrodesc Cdsc$a_pointer] = .macrodesc (Cdsc$a_pointer] + 1; ; 
2 ERs tLOoP: ‘And end this file now. 
§ CHSFILL (0, rfa$c_length, macrorfa); 
3 END; 'Of loop reading source 
9 
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: 
Deallocate the macro name descriptor table 


INCRU i FROM 0 TO Lib$Sc_maxnest-1 
DO BEGIN 


IN. A WIA RINOPIPINININININD 4 2 OO Oe OO 


AEM SOS NAN EWN OOO NAME WOOD 


curdesc = macnamptrtbl C.i * dsc$c_s_bin,0,0,0] : BBLOCK Cdsc$c_s_bin]; 
If .curdesc Cdsc$a_pointer] NEQ 0 
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; 1498 pen Lib. free_mem (lbr$c_maxkeylen+1, .curdesc Cdsc$a_pointer]); | ; 
; 1 ; | ; 
5 1264 Lib_free_mem stprse pagestze, -macnamptrtbl); | ; 
; : 8 macnamptrtbl = 0; ‘ 
; 1 bz RETURN true : 
; 1505 END; !Of Lib_inputmac ‘ 
OFFC 00000 ENTRY L 1B, INPUT MAC, Save R2,R3,R4,R5,R6,R7,R8,- =; 1240 : 
SE 08 C2 90002 SUBL2 #8, SP : F 
57 00006 CF 10 C1 0000 ADDL3 #16, LIBSGL_LIBFDB, R7 : 1290 : 
56 00006 CF 10 C1 00008 ADDL3 #16, LIBSGLINPFDB, R6 > 1291 : 
5B D4 00011 CLRL - FOUND_ONE 3 1293 : 
0000' cf D4 90013 CLRL_ DUPSEEN 3 1294 F 
00 6E naa 00 2c 90017 MOVCS #0, (SP), #0, #6, MACRORFA > 1295 : 
0000" CF DS boot TSTL § MACNAMPTRTBL : 1299 
11 12 90023 BNEQ 1$ : 
0000" CF 9F 00025 PUSHAB MACNAMPTRTBL : 1300 
7E 0200 8F 3C 00029 MOVZWL #512, =(SP) : 
00006 CF 08 1B 909 : CALLS #2, LIB_GET_ZMEM : 
60 50 £9 000 BLBC STATUS, 5$ : 
0000" CF 9F 00036 1$: PUSHAB BUFDESC : 1309 
00006 CF 01 FB 0003A CALLS #1, GET_RECORD : 
59 50 DO 0003F MOVL RO, GET-STATUS ; 
0001827A BF 59 D1 00042 CMPL  GET_STATUS, #98938 : 
14 13 00049 BEQL ; 
0000" CF 8 00048 TSTW LINELEN > 1311 
ES 13 O004F BEQL Ss ; 
0000v CF 00 FB 00051 CALLS #0, SCAN_LINE > 1312 
DD 50 €9 00056 BLBC ~=—_«RO, ; 
0000" <F 05 00059 TSTL § TOKENINDEX : 1313 
dD? 12 0005D BNEQ ; 
0001827A BF 59 D1 OOOS5F 2s: CMPL = GET_STATUS, #98938 : 1316 
iF iF 0066 BNEQ & ; 
03 by) : 0068 BLBC FOUND _ONE , 3$ ; 1317 
02A1 31 00068 BRW 37$ ; 
é DD 006 3$: PUSHL 6 : 1320 
i DD 000 PUSHL #1 : | 
000000006 af DD 007e PUSHL #188 NOMACF OUND ; 
000000006 0 3 FB 007 CALLS #3, LIBSSIGNAL : 
50 000000006 8F : oor HOVL #L1B$_NOMACFOUND, RO : 1321 
5A D4 it 4$: CLRL REPLACING > 1324 
0000" CF o1 D 9089 MOVO #1, NESTINGLEVEL > 1325 
5B 1 DO 0008E MOVL #1, FOUND_ON : 1327 
0000v CF 99 FB 0091 CALLS #0, SETMACRONAME : 1328 
01 0 0096 5$: BLBS STATUS, 6$ : 
4 oe RET 3 
9000" CF 9F QOO9A 68: PUSHAB MACRORFA : 1329 
000" CF 9F O009E PUSHAB BUFDESC ; 
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Lbe=b00 12-808-1 382 93:38:54 LIBRAR.SRCJINPUTMAC.B32;1 . ei 
FEES = CF ; FB On2 CALLS #2, PUT_RECORD : | : 
D4 QOOA CLRL «= STOP ; 1331 ; 
0000" CF 1 ce AQ 7$ MNEGL #1, TOKENINDEX ; 1336 3 
0000' CF 9F OO0A PUSHAB BUF DESC ; 1337) 3 
00006 CF 1 FB 0008 CALLS #1, GET_RECORD : ; 
59 g DO 0008 MOVL RO, GET“STATUS : ; 
0001827A BF ; : OOBA CPL GE{ STATUS, #98938 : 1338) ; 
0000' cf e3 O9e3 TSTW LINELEN + 1341 : 
4 13 000¢ BEQL 6s : ; 
0000v CF 99 FB o0¢9 CALLS #0, SCAN_LINE 3 1342) ; 
09 69 0000" CF CF it CASEL JORENINDEX, #0, #9 t 1343) 
0045 004 0014 0007 8$: «WORD 9$-8$,- : 
0062 0048 0045 O00DF 12$-8$,- ; | 
0066 0066 000E7 12$-8$,- : 
12$-8$,- ; | 
12$-8$.- : 
13$-8$,- : 
16$-8$,- : 
16$-8$,- : 
16$-8$ 3 
0000' CF D6 OO0EB 9S: INCL -NESTINGLEVEL + 1348 
3F 0000" CF D1 OOOEF CMPL §- NESTINGLEVEL, #63 + 1349 
1B 1B OOOF4 BLEGU 10$ ; 
50 0000" CF DO 000F6 MOVL § MACNAMPTRTBL, RO > 1353) 
56 DD 000FB PUSHL : 1354, 
04 AO DD 000FD PUSHL  4(RO) : 
02 DD 00100 PUSHL #2 F 
000000006 8F DD 00102 PUSHL #LIB$_NESTLEVEL ; 
000000006 00 04 FB 00108 CALLS #4, LIBSSIGNAL ; 
08 11 0010F BRB 11$ : 1353 
0000v CF 00 FB gor 10$: CALLS #0, SETMACRONAME : 1357 
24 50 E 0116 BLBS RO, 16$ ; 
00OAS 3100119 11$:  BRW : 1358 
0000" CF 06 0011C 12$: INCL REPTNESTLEVEL : 1362 
1B 11 00120 BRB F 
0000" CF B85 00122 13$: TSTW  TOKEN2LEN > 1366 
06 if 00126 BNEQ : 
0000" CF 05 00128 TSTL REPTNESTLEVEL : 1367 
0B 12 0012C BNEQ 15$ : 
0000v CF 00 FB OO12E 148: CALLS #0, CHECKENDMAC : 1371 
0000' CF D 1 DECL NESTINGLEVEL ; 1378 
04 11 001 BRB 16$ : 134 
0000" CF 07 00139 15$:  DECL REPTNESTLEVEL : 1378 
0000' CF D5 00130 16$:  TSTL NE STINGLEVEL > 1385 
62 12 00141 BNEG «dS : | 
58 01 DO 00143 MOVL #1, STOP_FLAG : 1388 
51 0000" CF 00 00146 MOVL REBTNESTCEVEL, R1 : 1389 
iD 1 0148 BLEQ 1 F 
50 0000" CF 00 0014D MOVL § MACNAMPTRTBL, RO : 1393 
56 DD O19¢ PUSHL > 1394 | 
04 AO DD 001 PUSHL  4(RO) : 
51 DD 4 7 PUSHL Ri 3 
03 DD 00159 PUSHL #3 ; 
000000006 8F DD 00158 PUSHL #LIBS_NOMTCHENDR ; 
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Loe=000 ere e= 18s 93:88:G, | Heenan ede sTabuynal oss. 1 age 3) | 
000000006 00 05 FB 161 CALLS #5, LIBSSIGNAL ; | : 
18 1 B01ek i7s:  Beeo 18S 1397 | 
50 0000' cf 8 16¢ MOVL § MACNAMPTRTBL, RO + 1401) : 
6 DD 00171 PUSHL 3 1402 | : 
0% 02 bb oot punt age ier. 
conggang op OE HAR ITY AIRE 10h tpmergn eee 
1F 00006 CF 3 £1 O18 18$: Bac #3, LIBSGL_CTLMSK+2, 20$ + 1410) ; 
0000" cf 83 0188 IST INELEN + 1411 ; 
07 0000' ce I o181 CPL TOKENINDEX, #7 + 1412 : 
09 0000" cr Dl 00198 CPL JOKENINDEX, #9 + 1413 3 
0000v CF 00 FB OO19F 19$: CALLS #0, ELIM_TRAIL_BLNK + 1415 : 
wank Te OOtAs aa ve ‘hone 
0000' CF 9F OO1AA 20$:  PUSHAB MACRORFA > 1420 ; 
0000" CF 9F OOTAE PUSHA? BUFDESC : | : 
et OER ADIES EHS fp: SUL Recon : : 
03 rege GE Olga 218: LBs STOP_FLAG, 228 3 1424 : 
52 0000' CF DO 001CO 22$: | MOVL #§MACNAMPTRTBL, R2 + 1430 : 
03 58 ES 001¢5 BLBS TOP_FLAG, 23$ + 1426 ; 
OOFA 31 001C8 BRW 3$ : F 
07 0000' CF €9 001CB 23$ BLBC + DUPSEEN, 24$ + 1431 ; 
0000' CF bs 00100 CLRL - DUPSEEN + 1437 : 
00E9 31 00104 BRW 3 : : 
FDEE CF + 09 Fe 00107 248: CALLS #0, PUT_END i440 ; 
78 00006 CF 0S E1 O01DE BBC #5, LIBSGL_CTLMSK+1, 26$ > 1443 : 
SE DD OO1ES PUSHL SP > 1446 : 
0000" CF DD O01E7 PUSHL MACNAMPTRTBL : ; 
00006 CF 9F OO1EB PUSHAB LIB$GL_LIBCTL : : 
000000006 00 03 FB OO1EF CALLS #3, LBRSLOOKUP_KEY : ; 
5A 0 DO 001F6 MOVL RO. REPLACING : : 
0000" CF 9F 001F9 PUSHAB MACRORFA + 1448 : 
04 AE 9F OO1FD PUSHAB DELTXTRFA : : 
0000° CF DD 00200 PUSHL MACNAMPTRTBL : : 
00006 CF 9F 00204 PUSHAB LIBS$GL_LIBCTL : : 
omar 85 EB oor SAEs eee Het eBE GLACE KEY , he] 
000000006 00 oD 00 if PUSHL LBRSGL.RMSSTV : 
20 DD 0021 PUSHL STATUS : 
57 DD OO21A PUSHL R7 : 
0000° cr Dp 0 1C PUSHL MACNAMPTRTBL | 
000000006 8F DD 00 ; PUSHL —#LIBS INSERTERR | 
000000006 00 6 FB 0 CALLS #6, LIBSSIGNAL : 
5E A 9 0 f 258: BLBC REPLACING, 27$ : 1449 | 
00006 cf 9F 00934 PUSHAB LIBSGL LIBCTL : | 
000000006 00 02 FB 0238 CALLS #2, LBR DELETE_DATA : 
4E E8 0023F BLBS STATUS, : | 
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vOe=000 eae ee eT ets TCR CTT ee age 33 | 
| 
000000006 DD 43 PUSHL LBRSGL_RMSSTV : 
DD 0024 PUSHL STATUS : | 
DD O024A PUSHL 7 : | 
000000006 BF bp bodsae SUSHI = BLI@S_DELOATERR : | 
000000006 00 93 Fe 0 54 CALLS aS LIBS$SIGNAL : case 
0000' CF 9F 0025D 268:  PUSHAB MACRORFA ; 1456, 
0000' CF DD 00261 PUSHL MACNAMPTRTBL : | 
00006 CF 9F 00265 PUSHAB LIBS$GL LIBCTL : | 

000000006 00 FB 0 69 CALLS #3, LBRSINSERT_KEY : 
1D £8 00 : BLBS STATUS, 27 : | 

000000006 ! DD : 7 PUSHL LBRSGL_RMSSTV : 
0 DD 00279 PUSHL STATUS : 
, 52 0d 00278 PUSHL R : 

0000 cr DD 0027D PUSHL MACNAMPTRTBL : 
2 DD 00281 PUSHL 3 | 
000000006 8F DD 0283 PUSHL #LIBS$_INSERTERR : | 

000000006 00 06 FB 00289 CALLS #6, LIBSSIGNAL ; 
0000' CF DD 00290 27$: PUSHL MACNAMPTRTBL : 1460) 
04 5A E9 00294 BLBC REPLACING, 288 : 1459 

03 DD 00297 PUSHL # : 
02 11 00399 BRB s«298 : | 

02 DD 00298 28s PUSHL #2 : 

00006 CF 02 FB 0029D 29$ CALLS #2, LIB_LOG_UPD : 
00006 CF DD 002A2 PUSHL LI@$GL_CIBFBB + 1462 

0000' CF DD 002A6 PUSHL MACNAMPTRTB ; 

08 SA £9 OO2AA BLBC REPLACING, 30$ : 
000000006 a Dp $0908 PUSHL #LIB$_REPLACED ; 1461) 

000000006 8F DD 00285 30$: — PUSHL aL 18s INSERTED : 

00006 CF 03 FB 00288 318: CALLS #3, LTB_LOG_OP : 
04 A2 D 0020 2$: 4(R2) + 1464 
3F 11 002C BRB. 36S : 1426 | 
50 04 A2 dO 002¢C5 338:  mMoVL 4(R2), RO : 1470) 
04 A2 D6 002C9 INCL  4(R2) : 1473) 
0000" CF D3 002CC TSTL NESTINGLEVEL + 1474 
13 13 00200 BEQL 34 : | 
0081 8F BB 002D2 PUSHR #*M<RO,R7> : 1476. 

02 DD 00206 PUSHL # : 

000000006 8F DD 00208 PUSHL #LIBS$_NOMTCHENDM : 

000000006 00 04 FB 00 DE CALLS #4, LYBSSIGNAL : 
0000" CF D5 OOZES 34$:  TSTL §MACRORFA 1477) 
14 13 00269 BEQL : | 
FCDA CF 00 FB O002EB CALLS #0, PUT_END : 1480 | 
0000" CF 9F O02FO PUSHAB MACRORFA : 1481 | 

00006 cf 9F O02F4 PUSHAB LIBSGL LIBCTL : 
000000006 00 2 Fe 00zts CALLS #2. LBRSDELETE_DATA | 
04 A2 06 OOZFF 35$: INCL  4(R2) > 1483 
0B 11 00 02 BRB 2 1471 
06 00 6E cel 00 2c 0 04 36$:  MOVCS #0, (SP), #0, #6, MACRORFA ; 1486 | 
Fog? 31 O050C BRy = «18 > 1304 | 
D4 O30F 37$: CLRL J : 1492 
50 0000'DF4 0311 38$: | MOVAQ @MACNAMPTRIBL[I], RO > 1495 | 
04 AO D5 00317 TSTL 4(RO) : 1497 | 

OC 13 OO31A BEQL ©. 39$ : 


Bem us eon 19B O:$6:4)  YANCTL BL enc kz Wu 0-74 rose I 


| 
94 AO DD PUSH : 1498 
7£ gy BP BR MOVIBL # He, =($P) : | 
00006 CF F ALLS #2, LIB_FREE_MEM : 
D 39$: NCL t 1492 
F p A CMPL #63 3 
E 8 D BLEQU $ $ 
9900" F po USHL BACNAMPTRTBL + 1501 
7E , MOVZWL Wie, =(S : | 
00006 CF FB CALLS (18_FREE_MEM : | 
0000° cr D4 00 L nACNAR PTRTBL : 1502 
50 1 DO 00341 MOVL + 1504 
04 00344 : 1505 


; Routine Size: 837 bytes, Routine Base: S$CODE$ + 0070 
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yoe=000 12-808-1 She 93:38:64 LIBRAR.SRCJINPUTMAC .832;1 = (4) | 
> 4 1 1 ROUTINE scan_Line = | 
: ¢ : BEGIN 
: 4 : 1 ; i This routine scans the Line and determines if the Line contains any 
‘. 151 ! tientticent keyword and, if so, also attempts to scan the macro name, 
3 : ¢ ; 1 ! if any. 
: 4 6 1818 § routine do_scan_line = 
; 4 1514 BEGIN 
; 458 1515 LOCAL 
; t2p : 18 lastchar; ' Last character 
: 461 1518 3 IF NOT skip blanks () THEN RETURN false; '1f Line all blank or comment, done 
; 46 151 tokeniptr = .lineptr; ‘Point to start of first token 
; 46 1520 tokenilen = scan were (); 'S$can to end of word and get length 
; 464 1521 IF .tokenilen EQC 0 THEN RETURN false; '‘If no word, return false | 
; 465 15 ¢ lastchar = .curchar; iRemember the character past 
: 466 15 ' call to skip blanks 
; re tf 2 : ir Et biomes () !I1f not end of Line now, 
: 469 136 4 BEGIN 
; $70 15 & IF .lastchar EQL ZASCII*':* ! but on a label 
i th 1398 fee OO | 
; 47 1530 5 Lineptr = .lineptr = 1; ! back up one because subsequent call to skip_blanks will ou| 
: 4746 133) 5 RETURN do_scan_line (); ! then rescan what is left 
: he 1888 2 ese’ 
$ 477 1534 4 IF .curchar EQL %ASCII'=" ‘If an assignment 
: rth | 1 2 ? _ THEN RETURN false; ! then all done 
: 480 1537 ELSE RETURN Lookup_keyword (tokenidesc, macro_names) ; Jen yy left 
; «4481 1538 ! on line, see if .endm/.endr 
; 48 1539 penenarer = ,lineptr; 
; 48 1540 tokendlen = scan_word (); 
: rtf 134} 3 Ae lLookup_keyword (tokenidesc, macro_names); !Lookup name and return 


| 
| 
| 
| 
| 
ND; 'Of do_scan_line 
| 
| 
| 
| 


000C 00000 DO_SCAN_LINE: 
“WORD 


0 Save R2,R3 3 1513) 

53 0000" CF 9€E 0000 MOVAB LINEBTR R3 : 
0000v CF 99 FB 0000 CALLS #0, SKIP_BLANKS ; 1518 | 
46 g E9 0000C BLBC ~—_—aRO,, ; 
Es A 63 DO 0000F MOVL LINEPTR. TOKENIPTR > 1519 | 
0000v CF 00 FB 015 CALLS #0, SCAN WORD : 1520 | 
£4 A 30 80 001 MOVW RO, TOKERILEN ; 
1 doic BEQL ; 152) 
52 F4 A3 DO 0001 MOVL CURCHAR, LASTCHAR 3: 1522) 
0000v CF FB 0 CALLS #0, SKIP_BLANKS > 1524 | 
1F E 0 BLBC ~=—_- RO ; | 
3A D1 A CMPL LASTCHAR, #58 : 1527 | 
0 if. 00 D BNEQ ; 
63 Dd? 0002F DECL §LINEPTR ; 1530 | 


; Routine Size: 


. | 
— sw a es 


—OOONOUSw 


; Routine Size: 


CB OAF 00 FB 
04 
30 Fo OA } 

19 1 
FO AB 63 00 
0000v CF fe 
EC AS 8 
1c OA F 
E46 AS OF 
0000v CF 02 FB 
50 D4 
04 


88 bytes, Routine Base: S$CODE$ + 0385 


' 
Main body of scan_line 
iineptr = ,lineaddr - 


endptr = .lineaddr + x | Sh 
tokenilen = 0; 


“ee 


token2len = 0; 
RETURN do_ scan_ line () 
END; ‘Of 


0004 


5 0000" CF 9 

A2 6 01 ¢ 
5 FC a¢ C 

Ag 62 50 C1 
04 AS B4 

OC Ae B4 
89 = AF 00 FB 


32 bytes, Routine Base: $CODE$ + 040D 


— 
bed 
- 


~m 
bad 


SMS RMOOMOE FOun— 
w 
wr 


00000 SCAN_LINE: 
- WORD 


AX-11 Blis 
LIBRAR. SRC} 


#0, DO_SCAN_LINE 
RCHAR, #61 
LINEPTR, — 
rp SCAN, WORD 


TOKENTDE 
#2, LOOKUP_KEYWORD 


RO 


!Init moving Line pointer 


244 rer eer 


INPUTMAC .B32;1 


Bete Se Se Se Fe Fe Se Se Ge Fe Se Fe 


Pete Se Se Se Se Ge Be Be 


14-Sep-1984 12: 


IF NOT symbol_Char () THEN RETURN .Lineptr - .startptr; 
RETURN *Lineptr + 1 - .startptr; 
END; 


— 


000C 00000 SCAN_WORD: 
WORD 


; Routine Size: 47 bytes, Routine Base: S$CODE$ + 042D 
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3; 4 1 1 ROUTINE scan_word = 

TRS g aeein® 

: 499 1555 i This routine returns the Length of the word which is pointed to currently 
; 4 ! $ } by Lineptr and advances Lineptr to the character past the end of the word. 
: $50 1 LOCA 

; 0 12 § startptr; 

; 506 1260 

: 505 1561 startptr = .lineptr; 

3 BS 1 66 WHILE CHSDIFF (.endptr, .lineptr + 1) GTR 0 

; 208 i i - ys OE = CHSA_RCHAR (Lineptr) 'next characte 

; 4 x r 

: 509 1565 g : ; 

3 219 1206 

; $11 156 

; 512 1568 


‘ Save R2,R3 
53 0000" CF 9€ 0000 MOVAB LINEPTR, 
3g 63 D0 0000 MOVL. LINEPTR. STARTPTR 
50 6 01 C1 OO00A 1 ADDL3 #1, LINEPTR, R 
50 04 A3 D1 OO00E CMPL  ENDPTR, R 
14 15 00012 BLEQ 2$ 
63 D6 00014 INCL LINEPTR 
FS AB 00 B83 9A 00016 MOVZBL @LINEPTR, CURCHAR 
0000v CF 00 FB 0001B CALLS #0, SYMBOL_CHAR 
E7 50 Es 99020 BLAS. sseaR 
50 63 52 C3 0002 SUBL3 STARTPTR, LINEPTR, RO 
04 00087 RET 
50 63 52 C3 00028 2$: SUBL3 STARTPTR, LINEPTR, RO 
50 D6 b90¢¢ INCL RO 
04 0002E RET 


row 


2 - ans , “ihe 
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voe=000 132800= 138 93:38:64 LIBRAR.SRCJINPUTMAC.B32; 1 te &) 


; 5146 1569 1 ROUTINE skip_blanks = 

i $15 Hi BEGIN es 

: i$ 1 oe i This routine skips blanks and tabs in the input Line. 

:; 518 13 ! Returns true if skipped to non-blank, non-tab character. 

: 1 : ee Returns false if skipped to semi-colon or end-of-Line. 

: 1 1 A WHILE CHSDIFF (,endptr, .lineptr + 1) GTR O ! More input Line? 

3 § 157 DO BEGIN 

: 1578 curchar = CHSA_RCHAR ry ioeete2s ! Read next character 

3 4 1222 IF .curchar EQC ZASCII';* THEN RETURN false; ‘Return false if comment 
; 5 1 + IF .curchar NEQ ZASCII' |" AND .curchar NEQ SASCII° * 'If character is not space/tab 
: § 1383 o RETURN true; 

: 528 158 RETURN false 'Return false for end of Line 

3 Sev 1584 1 END; 'Of skip_blanks 


0004 00000 SKIP_BLANKS: 
- WORD 


Save R2 : 1569 
52 0000" CF 9€ 00002 MOVAB LINEPTR, R2 ; 

51 62 00 00007 MOVL LINEPTR, R1 + 1576 
50 01 Al 9E OOO0A 1$ MOVAB 1(R1), RO ; 
50 04 A2 01 S005 CMPL _— ENDPTR, RO : 
20 15 0001 BLEQ 2$ : 

62 D6 00014 INCL —_LINEPTR + 1578 
51 62 DO 00016 MOVL LINEPTR, R1 ; 
F4 A2 61 9A 00019 MOVZBL (R1), CURCHAR s 

50 FL A2 00 9001p MOVL  CURCHAR, RO : 1579 
38 50 D1 0081 CMPL RO, #59 ; 
OE 13 00024 BEQL © 2$ ; 

20 50 01 00026 CMPL RO, #32 : 1580 
DF 13 00029 BEQL 6s 1$ : 
09 50 01 00028 CMPL =O, #9 ; 
DA 13 909 BEQL = 1$ : 

50 01 DO 000 MOVL #1, RO : 1581 | 
04 0003 RET : 

50 04 00034 2$: CLRL RO 3 1584 | 
04 00036 RET F 


; Routine Size: 55 bytes, Routine Base: S$CODE$ + 045C | 
| 


wane 


: 


5 

54 

54 
4 
4 
4 


Pe Se ee Sees Oe OH Se Oe Ge SH Se Se ee 


fwrnr—O0@w 


4F 4E 
64 63 
32.0 «8 


eangem 


4D 
62 


30 
00 


4C 
61 


7A 
00 


; Routine Size: 


— 


Be ob ts wd —) 4) 4 wn 2 > > 


PUPP PVPS 


WOOOOOOOOMMOMOE 
CONAVLSWN—OVOOnNOu 


— 


4B 4A 
5A 59 


79 «(78 
00 5F 


0000° 


1. 10 
-Sep-1 oBe 1: 36:4] AX-11 Bliss-32 V4.0-74 


14-Sep-1984 12: 
NE symbol _char = 


T 
I 
his routine returns true if curchar is a character that may be 
n a symbol, and false if not. 


symbolics : ryt tis (68) INITIA p3 q o full vord 
(* ABCDEF GH] JKLMNOPORSTUVWXYZabcdefghijkLmnoparstusexsc0 23456789.$_'); 
IF CHSEATL (CHSFIND_CH (65, symbolics, .curchar)) 
THEN RETURN false 


ELSE RETURN true 
END; 'Of symbol _char 


«PSECT SOWNS,NOEXE,2 
49 48 47 46 45 44 43 42 41 00094 SYMBOLICS: 


sASCII \ABCDEFGHIJKLMNOPQRSTUVWXYZabcdefghijklmn\ 


58 57 55 54 $3 52 51 50 00A3 
oo 96 SB Sk $3 $8 Sf $8 63 BbtRe ASCII \oparst 0123456789.$.\<0><0><0 
‘ oparstuvwxyz .$_\<0><0><0> 
24 2 39 38 37 36 35 34 33 O00CB r 
-PSECT S$CODE$,NOWRT,2 
0000 00000 SYMBOL_CHAR: . 
«WORD Save noth iot 
CF 0041 8F 0000° CF 3A 00002 LOCC CURCHAR, #65, SYMBOLICS 
62 12 0000C BNEQ «TS 
51 De OO00E CLRL ORT 
$1 p$ 00010 1$: TSTL RI 
03 12 00012 BNEG 2S 
50 Dé 00014 CLRL RO 
04 60016 RET 
50 01 DO 00017 28:  MOVL #1, RO 
04 QOO1A RET 


27 bytes, Routine Base: $CODE$S + 0493 


LIBRAR.SRCJINPUTMAC .B32;1 


toe: 


Be Se Se Ge Be 


SEE NTT et in SA eg ORE hn Ee Be RO tm £ 


H 10 

LIB_INPUTMAC 16-Sep-1984 01:56:41 AX-11 Bliss-32 V4.0-74 Page 22 . 
iOe=000 12-88-1382 93338560 LIBRAR.SRC TNPUYMAG .03951 ° (8 | ive 
: 54 1599 1 ROUTINE Lookup_keyword (tokendesc, tableaddr) = | |: 
: of 138 BEGIN — : 
3 ! 3 
: rh 16 § ! This routine looks up the token described by tokenptr and tokenlen ; 
3 ri 198? in the vector of string descriptors pointed to by tableaddr. | : 
; iH 1982 } Returns true with tokenindex set up if found, false if not. ' 
3 584 1609 MAF F 
3 5 1608 tokendesc : REF BBLOCK, | : 
; 556 1609 tableaddr : REF BBLOCK; 3 
3 ef 1610 | : 
: 328 a VECTOR Clbrs ize, BYTE) | 
; upcasename : r$c_pagesize, ° ° 
: 560 1818 ‘3 - | : 
3 636) 1614 | : 
: 206 1615 IF .tokendesc Cdsc$w_ length] EQL 0 THEN RETURN false; ; 
; 207 1938 make upper_case (.tokendesc, upcasename); ‘upper case the name : 
; 565 1618 WHILE .tableaddr C.i * dsc$c_s_bln,0,16,0] NEQ 0 : 
H 208 163 DO BEGIN ; 
: 208 1831 curdesc = tableaddr [C.i * dsc$c_s_bln,0,0,0] : BBLOCK Cdsc$c_s_blnj; : 
* j 6 
; 570 1858 ; IF CHSEQL (.tokendesc adocSu. length upcasename, .curdesc Cdsc$w_length], . 
; Dr 1624 .curdesc Cdsc$a_pointer] : 
; or¢ 1625 4 THEN BEGIN ; 
. oe 1626 4 tokenindex = .i; 3 
; 574 1627 4 RETURN true; : 
s S75 1628 4 END 3 
: 576 1629 3 ELSE i = .i +1; | : 
; 577 1630 § END; : 
; 578 1631 RETURN false 'Not found : 
3 S79 1632 1 END; '0f Lookup_keyword : 
003C 00000 LOOKUP_KEYWORD: 3 

» WORD Save R2,R3,R4,R5 ; 1599 $ 

5E FEOO CE 9€ 0000 MOVAB =-512(SP5, $P : : 

5 04 AC 00 0000 MOVL TOKENDESC, R5 3 1615 ; 

65 90008 TSTW (RS) ; : 

sf 00D BEQL 3$ $ 3 

4020 F BB OOO0F PUSHR #*M<R5,SP> : 1616) 3 

0000v CF Fi FB 3 CALLS #2, MAKE_UPPER_CASE g ; 

4 D4 0001 CLRL > 1617) : 

50 08 BC44 QOO1A 1$: MOVAQ a@TABLEADDREIJ, RO > 1618 | $ 

B5 OOO1F TSTW (RO) é 

16 13 00021 BEQL 3$ 3 F 

60 00 6E 06 +3 20 8 H CMPCS (R5), UPCASENAME, #0, (RO), @4(RO) : 1623 | : 

69 13 $0 A BNEQ 2s : 2 

0000° fF 4 0D 002C MOVL 1, TOKENINDEX Z 1636 | $ 

0 01 D0 00031 move wi, RO > 1627 | ; 

04 00034 RET Ps | e 


J 10 | 
L1B_INPUTMAC 16-Sep-1984 01:56:41 AX-11 Bliss-32 V4.0-7 Pp 4 
Loe=O00 ee ioe ris hg pn rt ae aoe §) | 


; $1 1633 1 ROUTINE make_upper_case (idesc, oname) = > 
5 Bs ¢ BEGIN : 
: 16 ' This routine upper cases iname. : 
; 585 1637 ' : 
: 86 1638 Pp : 
: 58 1639 idesc : REF BBLOCK, | ‘ 
: 588 1640 oname : REF VECTOR C,BYTE); : 
; 89 1641 BIND : 
; $90 1966 namlen = idesc Cdsc$w stength : WORD, : 
3 a3) 196? iname = idesc Cdsc$a_pointer] : REF VECTOR C,BYTE); : 
: 53 1645 2 IF .mamlen GTRU 0 | ; 
BE 1h Se phos ots pater . ; 3 
: iname a’ 'copy name and convert to upper case . 
: 596 1648 AND. iname 1 LEGY ZASCII'2' = ~ : 
: 97 1649 THEN oname 13 = .iname i] - (ZASCII*a’® = ZASCII'A') : 
; 598 1650 rokee oname C.i] = .iname (.i]; : 
; 599 1651 RETURN true ° 
; 600 1652 1 ; 


001C 00000 MAKE_UPPER_CASE: 


WORD Save R2,R3,R4 : 1633 

53 04 AC 04 C1 00002 ADDL3 #4, IDESC, R3 + 1643 

04 BC 83 00007 STW  a@IDESC + 1645 
30 13 OOOOA EQL «SséS$ : 

54 04 BC 3C 0000C MOVZWL @IDESC, R4 + 1646 
54 07 99019 ECL R4 ; 

50 D4 0001 CLAL I t 1649 
21 «11 00014 BRB 4$ : 
52 50 08 Ac C1 00016 1$: ADDL3 ON AME ; 

51 0 8340 9A 00018 MOVZBL a0(R sc4, Re + 1647 
61 BF 51 91 000 CMPB ORT, #9 : 
o¢ 1 00024 BLSSU 2$" F 

7A soSF 1 91 00026 CMPBseaR1, «#122 + 1648 
06 1A O002A BGTRU 2$ : 

62 51 20 83 0002C SUBB3 «#32, R1, (R2) + 1649 
03 11 00 BRB 3$ : 

62 51 90 000 38: MOVB = R11, (R2) : 1650 

20 D6 999 $: INCL I + 1647. 

54 D1 i$: CMPL 1, R4 ; 
DA 1B 900 A BLEGU 1$ ; 

50 01 D0 0003C S$: MOVL #1, RO : 1651 

04 0003F RET > 1652 


; Routine Size: 64 bytes, Routine Base: $CODES + O4EA 


K 10 | 
yoez000 1e73ep- 1382 93:38id, — EMtaRan SaedineutMar.o$3,1 Page 46) 


; 602 1653 1 ROUTINE elim_trail_bink = | 
3 604 1? ¢ pein 
: 605 16 i Eliminate trailing blanks from the Line 
; 606 1687 i ° 

; 60 16 8 Linep = pondete, - 1; 

; 608 165 skip. bunk _bkwds 

; 609 1660 LineTen = -CHSDFE i. Linept - Linesddr) +1; 

> 610 1661 2 WHILE CHSDIFF (. Vineptr Pe Lings dr) GEQ 0 

; 611 1966 DO IF (curchar = PU tesenenl NEQ ZASCII';' 

3 ois 166 THEN Lineptr = CHSPLUS ( Ealtceet -1) 

3 61 1664 ELSE BEGI 
> 614 1665 Linelen = CHSDIFF (.Lineptr, .lineaddr); 

; 615 1698 EXITLOOP; 

:; 616 166 END; 

; 617 1668 

; 618 1669 Lineptr = . Lineaddr + ,linelen = 1; 

; 619 1670 skip_blnk _bkwds 

; 620 1671 LineTen ="CHSDIFF a lLineptr, .lineaddr) + 1; 

3; 621 1076 RETURN true 
; 622 1675 1 END; 'Of elim_trail_blnk 


0004 00000 ELIM_TRAIL_BLNK: 
. WORD 


; Routine Size: 89 bytes, Routine Base: $CODE$S + 052A 


6 Save R2 : 1653 
52 0000" CF 4 00002 MOV LINEPTR, R2 : | 
62 04 A2 01 ¢3 00007 SUBL3. #1, ENDPTR, LINEPTR : 1658 
0000v CF 00 FB 0000¢ CALLS #0, SKIP_BLNK_BKWDS : 1659 
50 62 EO A2 C3 00011 SUBL3 LINEADDR> LINEPTR, RO 3: 1660 
pc A 50 01 Al 00016 ADDW3 #1, RO, LINELEN : 
51 $2 DO 0001B 1$: MOVL LINEPTR + 1661 
EO A2 1 D1 OO01E CMPL 1, LINEADDR ; 
16 19 000 Lss ss 38 ; 
50 61 9A 00024 MOVZBL (R1), RO + 1662 
FA 50 pO 00027 OVL RO, CURCHAR ; 
38 50 91 00028 CMPBeRO,, #59 F 
04 13 0002E BEQL = 2$ ; 
62 D7 00030 DECL §_LINEPTR : 1663 
E? 11 00032 BRB 1$ ; 
DC A2 51 £0 A2 A3 000 33 SUBW3 LINEADDR, R1, LINELEN + 1665 
50 DC OA 3¢ 003A 3$ MOVZWL LINEL 0 > 1669 
50 EO A 00 : ADDL2 LINEADDR, RO ; 
62 FF AO SE 0004 MOVAB -1(RO), LINEPTR : 
0000v CF 00 Fe 0046 CALLS #0, SKIP_BLNK BKWDS : 1670 
50 $2 EO A2 C 00048 SUBL3 LINEADDR> LINEPTR, + 1671 
DC A2 2 01 Al 0005 ADDW3 #1, RO, LINELEN : 
0 01 00 00055 MOVL #1. RO : 1672 
04 00058 RET > 167 


LIP _,NAUTRAC 


; Routine Size: 40 bytes, Routine Base: $CODES + 0583 


: 624 1674 1 ROUTINE skip_blnk_bkwds = 
3 ? 5 192? qesin 
: ? 8 187? This routine skips blanks in an input Line backwards. 
; © § 1898 WHILE CHSDIFF (. Api tik of tngoder? GEQ 0 
; 650 1680 DO IF (curchar = CH$ (.Lineptr)) EQL ZASCII* ' 
; 631 1681 OR .curchar EQL tA 
; 6 ¢ 16 ¢ THEN Livestr = CHSPLUS (.lineptr, -1) 
s © 16 ELSE RETURN true; 
; 654 1684 RETURN true 
; 655 1685 END; !Of skip_blnk_bkwds 
0004 00000 SREP LK KUO 
5 0000° CF 9€ 0006 MOVAB 
EO A $¢ Di 00007 1$: CMPL 
17 19 00008 BLSS 
50 00 B¢ 9A 0000D MOVZBL 
F4 A DO 00011 MOVL 
2 50 91 00015 CMPB 
06 13 00018 BEQL 
09 F4 «=A2 (OI Baie CMPL 
04 i OO1E BNEQ 
6¢ D7 00020 2$: DECL 
E3 11 00022 BRB 
50 01 DO 00024 3$: MOVL 
04 00027 RET 


741 AX-11 Bliss-32 V4.0-74 
704 LIBRAR.SRCJINPUTMAC .B3 


Save R2 

LINEPTR, R2 
LINEPTR, LINEADDR 
@LINEPTR, RO 

RO, — 

RO, #32 


CURCHAR, #9 
| te 
#1, RO 


37 


Page 26 


Pete Se Se Se Ge Se Be Ge Ge Se Se Ge Se 


(11) 


m 10 
vou2000 1er$ep=198e 12:88:06 EMTeRansSaeSiNPUTRAC 859; Pat (485 


; 637 1686 1 ROUTINE setmacroname = 

; 638 16 BEGIN 

; 639 16 . ! 

; 640 16 i This routine converts the macro name to ppper case 

; 641 1690 ' and saves it for Later check ing on the .ENDM and for 

; 64 1691 ; entering the macro name into the Library. 

; 64 1936 

3 644 169 BIND 

; 645 1694 inpdesc = Lib$Sgl_inpfdb Cfdb$l_namdesc] : BBLOCK, 

; org 199? macrodesc = macnamptrtbl ((. nestinglevel - 1) * dsc$c -s_bin,0,0,0] : BBLOCK; 
; 648 1899 IF_.token2len GTRU .Lib$Sgl_keysize 

; 649 1698 THEN BEGIN 

; 650 1699 sie. (LibS_macnaming, 2, token2desc, inpdesc); 

; 651 1700 RETURN Lib$_macnaming; 

; 626 1701 D; 

; 6 17Re 

> 654 170 IF .macrodesc (Cdsc$a prelnter? EQL 0 

; 655 1704 THEN perform ase <get eng". (Lor$c nr ments at ty macrodesc Cdsc$a_pointer])); 
; 656 1705 macrodesc (dsc$a_pointer -macrodesc Udsc$a_pointer) + 1; 

s 657 1706 make_upper_case Ttokenddesc, -macrodesc Cdsc$a_pointer]); 

; 658 1707 macrodesc CECdsc$w_length] = .token2len; 

; 659 1708 

; 660 1709 

3 oF) \zI9 namlen = .macrodesc Cdsc$a_pointer]-1 : VECTOR C,BYTEJ; !Name first byte (Length) 
$ £8¢ ar: namlen [0] = .macrodesc Cdsc$w_length]; 'Set Length into name 
3: 664 1713 2 3 

; 665 1714 2 

; 666 1715 IF .nestinglevel EQL 1 

; 667 1716 THEN 

> 668 1717 BEGIN 

; 669 1718 IF NOT . - | ibgal. ctlmsk Clib$v areptace? if not replacing 
; 670 1719 ; AND Lbr$lodkup_key (Lib$gl_libctl, macrodesc, macrorfa) 

; 6r) 1720 HEN 

s 67 1721 4 BEGIN 

3; 67 Has 4 SIGNAL Cis. dupmodule esther, Cdsc$a_pointer] - 1, Lib$gl_inpfdb [fdb$l_namdesc], 
> 674 1723 4 Lib$gl_libfdb trabsi namdesc)); 

3; 675 1724 4 pgoren = true; 

; 676 1725 3 : 

3 O77 1726 § END; 

; 678 1727 ; 

3; 679 1728 2 pocrodvec _Séocbe pointer) = .macrodesc Cdsc$a_pointer] - 1; 

; 680 He 2 RET 

; «681 1730 1 END 


007C 00000 sshimmeamasn’ * 


WORD Save R2,R3,R4,R5,R6 : 1686 
9€ 0000 HOVAB LIBSSIGNAL. R : 
ALIBS_MACNAMLNG, RS ; 
Cy nee TiBSéL“INPEDB, RI £1694 
NESTINGLEVEC, RO * ; 1695 | 


LAB. SRRUTRAC 


0000G CF 64 


00006 
FEDF 
50 
32 00006 
000000006 
7E 00006 
7E 00006 
7E 
oc 


; Routine Size: 174 bytes, 


7E 
CF 
8 


50 


Routine Base: 


1 
1 
2C B44 3 OO1F 
Ce 00024 
£0 0027 
F 1B 
1 0D Q00 
4 0D 000 
at: 
9% fe 60 8 
5 00 00038 
04 =A oe 00 F 1$ 
as 
3 12 0004 
DD 0004 
81 8F 9A 00049 
FB 0004D 
E9 Bogee 
62 06 00055 2$: 
62 0D 4 624 
54 DD 00059 
02 FB 00058 
64 89 00060 
01 C3 00063 
63 90 00067 
1¢ A4& D1 QO06A 
38 12 QO06E 
05 £0 00070 
24 =A4 YF 00076 
53 DD 00079 
0000G CF 9F 0007B 
03 FB 0007F 
50 £9 00086 
10 ¢1 00089 
10 C1 Q008F 
01 C3 00095 
03 dD 00099 
000000006 8F DD 0009B 
05 FB QOOA1 
01 DO Q00A4 
62 07 QOOA8 3$: 
01 DO QOOAA 
04 OOOAD 4$ 


SCODES + OSAB 


4) AX=11 Ol iege se V4.0-74 
04 LIBRAR.SRCJINPUTMAC .832;1 


QMACNAMPTRTBLCROJ, R3 

! ; #16, TOKEN2LEN, LIBSGL_KEYSIZE 
R1 

RG 
# 


#4, LIBSSIGNAL 
RO 


AKE UPPER CASE 
’ {Ast 


RQ) 
NGLEVEL, #1 


IBSGL_CTLMSK+1, 3$ 
MACRORFA 


LIBS$GL_LIBCTL 

#3, ,BRSLOOKUP_KEY 

RO. 3$ 

#16, LIBSGL_LIBFD8, -(SP) 
(SP) 


#16, LIBSGL_INPFDB, - 
#1, (R2), -TSP) 


# 
#188 DUPMODULE 
#5, LYBSSIGNAL 
#1 PSEEN 


DU 
(R23) 


#1, RO 


Pe Se Se Se Se Ge Se Se Se Ge Se Se Be Se Be Ge Se Be Be Ge Ge Be Se Se Fe Fe Fe Se Ge Fe Ge Fe Be Fe Fe Be Ge Be Se Be Se Se Be 


Page 28) 


(1 | 


| 


1697 | 
1699 


11 
L SAA REU TRAC 16- Sep-1984 01: AX-11 Bliss-32 V4.0-74 
vb ~Sep-19 4 3: 38:04 LIBRAR.SRCJINPUTMAC B32; 1 


; 3 7 1 ROUTINE checkendmac = 
¢ OF i! pecin 
; 6 if 4 i This routine checks that the name specified on the .ENDM 
; 6 1735 ! matches what is expected. 
3; 6 ; 17 $ ! 
3 17 BIND 
; 690 1738 inpdesc = Lib$Sgl_inpfdb Cfdb$l_namdesc] : BBLOCK, 
; $3) 44 macrodesc = macnamptrtbl ((. nestinglevel - 1) ® dsc$c _8_bin,0,0,0] : BBLOCK; 
; $32 1503 mt d VECTOR Clor$ keylen, BYTE] 
3 endname : r$c_maxkeylen, : 
: $96 1748 IF .tok 2 NEQ 0 , 
. ° BEEL en 
FH e399 17465 THEN BEG 
; 698 ioe IF < oken2len TRU .Lib$Sgl_keysize 
: 144 174 THEN SIGNAL (Lib$_macnam ng, 2, token2desc, inpdesc); 
; 700 1748 make_up Pper case (fokenedesc endname); 
; 701 1749 IF NOT CHSEQL (.token2 Len. endname, -macrodesc Cdsc$w_length], 
; 70 1750 smacrodesc (dsc$a _pointer] + 
; 70 178) 4 THEN BEGIN 
; 706 17 § 4 mecrodeas pgsese spotncerd. = smacredese Cdsc$a gpetater: + 1s 
; 705 1755 4 SIGNAL (Lib$_end urngmac . 5 , token2desc, macrodesc, in dese); 
3; 706 1754 4 macrodesc Pasese pointer] = .macrodesc Cdsc$a “pointer? = 
; 707 1755 3 Pc 
; 708 1728 
: 709 175 
; 710 1758 A me true 
: 771i 1759 1€ 
OOFC 00000 CHECKENDMAC: 
» WORD Save R2,R3,R4,R5,R6,R7 
57 000000006 00 9€ 00002 OVAB LIBSSIGNAL. R? 
56 0000° CF 9E 00009 MOVAB TOKEN2LEN R6 
5E 80 af 9E 0000 ey *} (SP) 
55 00006 CF 10 Ci 0001 ADDL tiséot- INPFDB, RS 
30 1¢ A6 DO 0001 MOVL NESTINGr R 
4 2c 86% 5 001C MOVAQ QRACNARPTRTBLCROD, RG 
54 0 0021 SUBL2 R 
50 tt 5 $8 4 MOVZWL TOKENGLEN, RO 
4 027 BEQL 
0000G CF 50 D1 00029 CMPL RO, LIBSGL_KEYSIZE 
F 1B 000 BLEQU 1$ 
5 Dd 000 PUSHL R5 
§ DD 000 PUSHL 2 
DD 000 PUSHL 
00000000G 8F ODD PUSHL #188 pen Ne 
67 4 FB 0003C CALLS Wee LTe$ 
4040 F BB F 1$: PUSHR <R6, z° 
FE49 gf 2 fe rt, CALLS #2, <MARE UPPER_CASE 
0 04 AG : 4 MOVL. 4(R4) 
64 00 bE we 66 D 6 4c CMPCS TORENSLEN, ENDNAME, #0, (R4), 1(RO) 


L1B_INPUTMAC 16-5 Sep-1984 AX-11 Bliss-32 V4.0-74 Page 30. 
vbe=h00 1 =3e07} 382 ° £3864 LIBRAR.SRCJINPUTMA 0-245. ° ay 
15 13 BEQL $ 3 | 

046 Ab 06 INCL  4(R4) : 1753 

0 BB PUSHR  #*M<R4,RS5> > 1753, 

ae Bu Po 

000000006 8F DD Ost PUSHL fi 188, EN ENDURNGMAC : | 

? 5 FB 0 CALLS $SIGNAL : | 

04 A& D7 00067 DECL tched + 1754 

50 01 DO O006A 2S: MOVL » RO : 1758 

04 00060 RET : 1759 


; Routine Size: 110 bytes, Routine Base: S$CODE$S + 0659 


; re 1760 | 
3; 7 1761 1 END 
3; 716 1762 0 ELUDOM | 
.EXTRN LIBSSIGNAL | 
; PSECT SUMMARY | 
: Name Bytes Attributes | 
:  SOWNS 216 NOVEC, WRT, RD ,NOEXE,NOSHR, LCL, REL, CON,NOPIC,ALIGN(2) 
; SPLITS 76 NOVEC,NOWRT, RD ,NOEXE,NOSHR, LCL, REL, pated | Bred b abt bs 
; SCODES 1735 NOVEC,NOWRT, RD, EXE,NOSHR, LCL, REL, CON,NOPIC,ALIGN(2) 
3 Library Statistics 
BR er ee a Re ae ie et SYERSLE eoeeeone Pages Processing 
3 File Total Loaded Percent Mapped Time 
: .$255$DUA28: CSYSLIBISTARLET.L32;1 9776 26 0 581 00:01.0 
| 
; COMMAND QUALIFIERS | 
; BLISS/CHECK=(FIELD, INITIAL,OPTIMIZE)/LIS=LIS$: INPUTMAC/OBJ=OBJ$: INPUTMAC MSRC$: INPUTMAC/UPDATE=(ENH$: INPUTMAC) 
Size 1735 code + 292 data bytes 
Run "tte 0: 0: $89 9 
Sleosed Tine: 


Sete Se Se tee 


Lines/CPU zie3 
toneeesrtPu-nio: 30580 
Memory Used: 314 pages 


—— 


11 
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<r 


3; Compilation Complete 


eee eee es 


AH-BT13A-SE , DIGITAL EQUIPMENT CORPORATION 
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